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RB_CONNECT INIT REMOTE CONSOLE DIALOGUE 
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R - Console Carrier Requester Ethernet 1/0 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* ® 
'* a 
** ® 
*® * 
:* ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH . 
ts INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. 2 
*® ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
*® ® 
:* t 
'® ® 
** e 
*® * 
‘* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
TTT I tite t iii titi iti titi iii iiiiiiiiiititiiiitiiiitiiiitiiiiiiiiiiiiiy! 


+4 
; FACILITY: REMOTE CONSOLE CARRIER (NI) 


ABSTRACT: 

THIS PROGRAM RUNS ON A LOCAL NODE TO ALLOW A TERMINAL TO APPEAR TO 
3 BE LOCALLY CONNECTED TO A REMOTE CONSOLE. 

; ENVIRONMENT: VMS = USER MODE 


; AUTHOR: Scott G. Davis, 17-Mar-1983 
: ; MODIFIED BY: 


v004 PRDO110 aul R. DeStefano 30-Jul-1984 
Store SERVICE PASSWORD” in NICE message in image 
(Hl-n) format, 


v003 TMHOO03 Tim Halvorsen 28-Jul-1984 
Deassign channels to XEDRIVER before issuing request 
to down-Line load console carrier microcode. This is 
necessary because NDDRIVER cm a scnorate on a XE UCB 
which isn't fully owned by NETA 


v002 $G6D0002 Sco . Davis 07-Mar-1984 
Send SERVICE PASSWORD n Reserve Console message. 


v001 $GD0001 Scott G. Davis 30-Aug-1983 


SOOCOCOCOSOOSOOOCO GCOS COSCO SOSSSOSCSSCOCOCOSCOOOCOOCOOOOOOOOOOOOOOO 
NOUS WR 0 OD NAUE WN 0 OD NAME WN OO ONAU EWN 0 CONOAU EWN OOONOUES Wh 
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Me 3 : Correctly store SERVICE PASSWORD in NICE message. 
6 . 
61 
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NCPCONCAR - Console Carrier Requester Ethernet 1/0 16-SEP-1984 01:58:4 AX/VMS Macro V04-00 P NCI 
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$3 : -SBTTL DECLARATIONS 
69 : DEFAULT ADDRESSING MODE 
¢ ‘ .DEFAULT DISPLACEMENT WORD | 
6 ; INCLUDE FILES: 
_ SNMADEF ; Network management definitions 
: ie ; SNF BDEF ; Network function block definitions 
0 rh ; MACROS: 
0 i: . -MACRO ONERROR ACTION, ?L 
B 7 BLBS . 
0 3 4 ACTION 
00 7 L: 
4 e -ENDM ONERROR 
0000 é : EQUATED SYMBOLS: 
0000 a 
44 82 ; **eNOTE References to PDBs assume they are of the form: 
0000 e? F -BYTE presence-flag 
000 8 ; -BLKB nn - data 
3 
00000004 0000 91 DONE CHAR = 04 ; Character to finish 1/0 (*D) 
00000002 00 3 BREAR_CHAR = 02 ; Character to set ‘‘break’’ (*B) 
00000000 9000 94 CR ; 8 
00000005 00 95 RETRY_CNT = 5 ; No. of times to retry connect 
Bh 38 TIMER = 5 ; No. of seconds between retries 
00 98 NFBSIZ = NFBSC_LENGTH+12 ; Network function block size 
99 P2BUFSIZ = NFBSC_CTX_SIZE+4+18 ; P2 minimum + service circuit string 
100 P4BUFSIZ = 51 
101 XMTBUFLEN = 2} ; Size of transmit buffer 
! ¢ RCVBUFLEN = 1 ; Size of receive buffer 
104 MOPSC_REQID = ; ; Request ID 
105 MOPSC_SYSTEMID = ; System ID 
1 $ MOPSC_RESERVE = 13 ; Reserve console 
107 MOPSC_RELEASE = 1 ; Release console 
1 3 MOPSC_COMMAND = 17 ; Command and poll 
10 MOPSM_MSGNUM = 1 ; Message number bit 
110 MOPSM_ BREAK = 2 ; Break indicator bit 
111 MOPSC_RESPONSE = 19 ; Response and acknowledge 
\\¢ MOPSV_CMDLOST = 1 ; Message lost bit 
114 MOPSC_INFO_FUNC = 2 ; INFO type code - functions 
115 MOPS$V_FUNC_CARR = ; ; Console carrier active 
118 MOPSV_FUNC_RSRV = ; Console reserved 
1} MOPSC_FUNC-SIZE = 2 ; Size of field 
00000003 118 MOPS$C_INFO_USER = 3 ; INFO type code - console user | 
} 
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SSS HBSS) 


Y noe 2 i" 
MOPS$C IN 
2 MOPS IN 


5 
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INF 
3; INF 
INF 


roe 


0 type code - reservation timer 
type code = console command size 
type code - console response size 


FFFFFFFF FDOSOF8O 


NICE_PARAM_ADDR: 
ABDRES 


90000783. . S ADDR_HARD 
000000' - ADDRESS PDBSG_CON_SLI 
00000000" . ADDRESS PDB$G_CON_SPW 
00000000 -LONG 0 


sssseseosss S 


NICE_PARAM_ID: 

«WORD NMASC_PCNO_HWA 
"WORD NMASC™ “PCNO_SLI 
-WORD NMASC_PCNO-SPA 


REQUEST_ID_MSG: 
BYTE MOPSC_REQID 


-BYTE 0 
REQUEST_MSG_LEN = .-REQUEST_ID_MSG 


RELEASE _MSG: 
° MOPSC_RELEASE 
RELEASE_MSG_LEN = .-RELEASE_MSG 


CONNECTED_MSG: .LONG e0$-108 
LONG 


a a a a a a “a a a a 2 a a as — 8 a 2 =) ss 2 a a a 2 2 
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NCPCONCAR Console 
¥O65005 EORRATI 
; OWN STORAGE: 
: .PSECT CONCARSPURE ,NOWRT,NOEXE 
“SBTTL READ ONLY DATA 
ASSUME BREAK_CHAR tT 32 
ASSUME DONE_CHAR LT 3 
90000000 1 TERMINATOR_DESC: «LONG 
00 | CONSNFB_DESC:: .LONG NFBSIZ 
0000 bf 6 . . ADDRESS CONSNFB 
00000056 1 CONSP2BUF _DESC:: ~LONG P2BUF 
00000588" 4 . . ADDRESS CONSP2B 
00000200 8 CONSP4BUF _DESC:: . LONG P4BUFSIZ 
000005E1' 91 - ADDRESS CONSP4BUF 
SETPARAM_DESC: 
0000003C" 00 " SE TPARAMLEN 
000004BE ° . ADDRESS SE TPARAM 


74 X/VMS Ma v04-00 P 
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terminators 


0 
-LONG <1@BREAK_ HARD 1<4 BBON _CHAR> 


NFB descriptor 


3; P2BUF descriptor 


; P4BUF descriptor 


TIMEOUT: .LONG -10*1000*1000*TIMER,-1 ; Timer for NI responses during setup 


e: 
The arrays NICE_PARAM_ADDR/ID have parallel entries. 


Addresses to store param values 

ur AP ia ngs El hardware address 

For RESERVE CONSOLE and LOAD messages 
End of table 


Table of parameters in charac response 
Hardware address 

Service circuit 

Service password 

fe gett for presence of console 

° 

Reserved byte, for future use 

Receipt number - **What goes here?** 


To release console 
Code 


; Prompt 


10$: ASCII <Lf>\ Console connected (press CTRL/D when finished) \<CR><LF> 


tome —————— Ll 


vO4-000 READ 


OD 29 64 65 68 73 69 6E 69 66 20 gE 


1A‘ 

96° 
nugnnuneRtes 
erat 

os 61 20 65 72 61 77 o6 72 OL 48 OA 
OA OD 64 65 

0011" 

ODC* 

20 6E 69 20 65 6C 6F 73 6E 6F <3 94 
OA OD 65 73 75 


4F 43 24 53 59 53 000000F5°010E0000° 
44 4E 41 4D 4D 


30 30 33 
43 43 4F 54 55 4C aid 
00000008 
4C 57 4F 54 55 4C 50 99" 
00000008 


sole 
ONLY 
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209 


208: 
FINISH_MSG: 
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«LONG o97, 108 ; Message when done 
«ADDRESS 10$ 


$: ASCII <CRD><LF> 
38: 


NO_RESP_MSG: a 7 ft ; Status message 
108: ASCII <LF>/Target does not respond/<CR><LF> 


20$: 


NO_HARD_MSG:  .LONG  20$-10$ 
ONG 108 


; Hardware address required message 


el 
10$: eASCII <LF>/Hardware address required/<CR><LF> 


20$: 

IN_USE_MSG: one oo ; Status message 

10$: ASCII <LF>/Console in use/<CR><LF> 

20$: 

TTY_DESC: -ASCID /SYSSCOMMAND/ 

NE TMANVER: eASCII /300/ ; Network management version 3.0.0 
LOA_FILE: eASCIC /PLUTOCC/ ; Name of console carrier file 
LOA_LTH = .-LOA_FILE 

SLO_FILE: eASCIC /PLUTOWL/ ; Name of secondary loader 

SLO_LTH = .-SLO_FILE 


ween 


= Console 
READ/WRIT 

11 

0000 

1 

00000018 1 
00009C 1 
1¢ 9C 
84 9C 
AQ Ab 
000002A4 A 
AG 

11 A4 
000002A6 . 
0000 A 
$9000 she 
0004A6 A6 
4A6 
QO0004AA 04A6 
4 AA 
QOO004AE O4AA 
4AE 
000007E5° | 
000004FB' 048 
0000048 4B6 
000004BA B88 
4BA 
000004BC 04BA 
48C 

Q000004BE 048C 
4BE 

4BE 

4B 

4C 

4C4 
C6 
CA 

C 

D 

D 

D 

D 

oc 

D 

E 

E 
€8 
Fa 

E 

4F 

4F 

OOOO04FA O4F 
4FA 


di 6 
er Requester Ethernet 1/0 . 


- SBTT 
- PSEC 


IN_I0SB: 
: -BLKQ 


XMTBUF : 
MOP_CTRL_FLAGS: 


CONSXE _DESCADDR: : 


SEP=1 
SEP- 


1986 82:78:39 ENCPYSRCINGPCONCARL MAR; 1 
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READ/WRITE DATA 
CONCARS IMPURE ,NOEXE ,WRT,LONG 
BLKQ 1 ; Terminal input status block 
j ; 1/0 status block 
-BLKQ 1 ; Points to NML response to load request 
-BLKB = 128+4 ; Enough room for buffer + CRC 

SYSTEM _ID_MSG+4 ; Start of INFO section of message 
= ,-SYSTEM_ID_ASG 
-BLKL 1 ; Holds pointer to end of SYSTEMID msg 
-BLKB RCVBUFLEN+4 ; Enough room for buffer + CRC 
-BYTE MOPSC_COMMAND ; This is a COMMAND/POLL message 
-BLKB 1 ; Flags byte: bit 0 = msg no. 

3 bit 1 = break flag 

= .°N1_XMTBUF ; Amount of overhead in message 
= NI_XATBUF+COMMAND_OHD ; Terminal input comes here 
XMTBOFLEN ; Start of xmit data 

-BLKA 1 ; Address of NI device descriptor 
-BLKL 1 :; For making sure of responses 
- ADDRESS ADDR_HARD+2 ; Hardware address 
ADDRESS ADDR_PHYS+1 ; Physical address 
-BLKW 1 3; NI channel for hardware address 


-BiKkw 1 
i ene RICHAN HARD/PHYS must be 


RETRY_COUNTER: 
NI_ADDRESSES: 
NICHAN_HARD: 
NICHAN~PHYS: 
ICHAN: .BLK 
TTYCHAN: 
SETPARAM: 
. WORD 
- LONG 
“WORD 
: LONG 
; WORD 
- LONG 
“WORD 
LONG 
“WORD 
LONG 
“WORD 
- LONG 
“WORD 
- LONG 
- WORD 
LONG 
; WORD 
“WORD 
“WOR 
DEST_ADDR: 


3 te? NOTE: 


-BLKW 1 


NMASC_PCLI_BUS 
RCVBUFLEN 
WAASC_PCLI_BFN 


NMASC_PCLI_ PAD 


NMASC_STATE_ON 
WHA. PCLI_PTY 


NMASC"ACC_CIM 
NMASC_PCLT_DES 


NMASC_LINMC_SET 
BLKB” 6 


NI channel for physical address 


together in this order, for context indexing 


For 1/0 operations 
Terminal I/0 channel 


Buffer size 
Number of buffers 
Pad short buffers 


Protocol type 
Console carrier protocol type 
Promiscous mode disabled 


Data chaining off 
Generate crc on transmit 


Protocol access mode 

Limited ee ; 
Destination addr for Limited sharing 
Count for parameter 

Set the address that follows 

Space for complete NI ADDRESS 


veces 


0000003C 


4 


somos 


88 

44 8 

000009 

3A 30 41 45 58 00000512°010E0000° 


000518 
00051F° 


=" 
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0000053 


om 
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Se ee ae fae fant ba be bn be eA Ab Ab ab ab db ab ab ah Ah Ab AP ab A Ar Ab Ah A Ab Aa Ab Ab Ab Ah Ah Ah Ah Ab ab Ab dh dh ah ah al tet tet ee tet tet tet tet at ee aot ae 


So 

38 s38sss 

oS = So 

= = NDOo SRo 
COOCOOCOSOOSOOOCOOCOOSOOOOOOOOOOOOOOOOOOOoOoOoOO 


E 
000007E1 4 
000007E2 3 
000007E3 : 
000007E8 E 
EB 
EB 
EB 


DDR_PHYS: 


i 

A 

4 

f 

2 RESERVE_MSG: 
BYTE 

4 “BLKB 

5 RESERVE_MSG_LEN 

XE_DESC: 

3 NICE_SHOW_DESC: 

31 NICE_SHOW MSG: 

93 CONST_SHOW_NODE: 

95 NICE_LOAD_DESC: 
ADDRESS 

97 NICE_LOAD_MSG: 

98 BYTE 

99 BYTE 

00 “BYTE 

01 LOAD_PARAMS : 
.BLKB 

0 “BLKB 

04 “BLKB 


09 ZERO_START: 

11 CONSNFB: : 
13 CONSP2BUF : : 

15 CONSP4BUF : 

3 NICE_MSG_FLAG: 
19 MOP_MSG_NUM: 
: ADDR_HARD : 

i 


ONSW_ADDR_DNA:: 


K 6 
er Requester Ethernet 1/0 19r$ 


ceee 
SE TPARAMLEN=.-SETPARAM 
A 


ft 


-BYTE 6 
-BYTE  “XAA 
-BYTE 0 
-BYT 4 
BYTE 0 
-BLKW 
MOPS$C_RESERVE 


= .-RESERVE_MSG 
eASCID = /XEAO:/ 


~BLKL 
- ADDR 
-BYTE 


~BLKL 


NMASC_OPINF 
~BL 


s 
NMAS 


1 
NICE_LOAD_MSG 


NMASC_FNC_SYS 
NMASC_SYS_VMS 
NMASC~FNC_LOA 


NFBSIZ 
P2BUF SIZ 
P4BUF S12 
1 

1 

8 


EP- 
EP- 
a 


4 
DES 


1 


; entice SHOW_MSG 
GPA@sENMASC ENT _NOD : Get node characteristics 


1384 93:38:38 yAnlves Macro V04-00 
er 


; Space for param 1D+sec 


NCP. SRCINCPCONCAR.MAR; 1 


**line to be deleted Later 


sounted physical Ethernet address 
Four wired bytes for DNA addresses 


For storing DNA node address, in 


; reverse byte order 


To reserve console 


° 
; Room for service password 


; poner tyeee of service circuit 
XEAO: i 


s the default 
Length of NICE SHOW message 


; Read function 
Leave room for node name 


; Length of load message 
; Address of 
; Given to NMLSHR to load console code 
: qyeten<apect tte 
r 


load message 


° 
; Load function 
; For parameters 


Option - load by node/circuit 


; Space for physical address, maybe 

; Space for service circuit - variable 
; Space for param 1D+password 

; Space for param 1D+load fil 


2 
loader file 


; Storage to be initialized 


Network function block 

Buffer for describing what I want 
Buffer for getting what I want 
Error flag for processing NICE msg 
Message number -1 for command msgs 


perdusre address of target. Format: 


yte 1 = existence flag 
Byte 2- ‘6'’ (length of string) 
Byte 5-8 - Ethernet address 


veces 


= Con 
READ/ 


0000027¢ 
000007F9 


ORITE 


if 


Carrier Requester 
DATA 


=) 


L 6 

Ethernet 1/0 Tene Ep 198c Oeit8:59 ENCPLERCINEPCONCAR MAR;1 © "29® (2, 
= «*ZERO_START 
-BLKB 14 + ace to hold ethornge header, starting 


th my addres 


a 6 
er Requester Ethernet 1/0 16-SEP-1984 58:4 AX/VMS Macro V04-00 P 
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ween eh 


m 
oo 
>> 
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«PSECT CONCARSCODE ,NOWRT 
~SBTTL ACTSVRB_CONNECT INIT REMOTE CONSOLE DIALOGUE 


+ 
FUNCTIONAL DESCRIPTION: 
Initiate dialogue with remote console: 
- Attempt to reserve console 
= Request System | 
= Determine whether you have it. 
- If so = proceed with exchanging characters 
- If not - request downline load of console code, etc. 
CALLING SEQUENCE: 
CALLS #N,ACTSVRB_CONNECT 


INPUT PARAMETERS: 


Sete Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Se Se Se Se Se Fe Ge Gee 
+ 


WAAMAWANGIN AAA AAA AANA A.A AANA AAA AANA AAA ANNAN 
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0 
0 4 
8 4 
4 
3 4 
0 4 
00 4 
00 4 
000 4 
B28 4 NONE 
00 4 
0000 5 IMPLICIT INPUTS: 
000 5 
B28 5 NONE 
00 5 
0000 5 OUTPUT PARAMETERS: 
0000 5 
44 5 NONE 
000 5 
4464 5 IMPLICIT OUTPUTS: 
000 5 
0000 6 NONE 
44 6 
00 6 COMPLETION CODES: 
B00 6 
00 6 SIDE EFFECTS: 
0000 6 
44 ? Console carrier maintenance Link set up with remote node 
000 369 
OFFC 0000 70 ACTSVRB_CONNECT:: «WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> 
00 7 SASSIGN_S DEVNAM = TTY_DESC, CHAN = TTYCHAN ; Get terminal channel 
01 7 ONERROR at ; If error done 
027¢ 8F 00 O56F CE ,00 2c o1 7 MOVCS #0,ZERO_START,#O,#ZERO_LTH,ZERO_START ; Init storage 
0 74; 
3 4 3; Get parameter values supplied by NCP command 
0100'CF 9F 00 7 PUSHAB we TANNED ; Addr of menoponent version string 
00000000'GF 01 FB : 4 CALLS #1,G*NMLSINITIALIZE 3 Initialize NALSHR 
4 ASSUME NMASC_ENT_NOD €0 0 
0000' CF 03 § TSTL NCPSGL_OPTION : Is this CONNECT by node? 
Re BNEQ : If NEQ no = don't look anything up 
ORE ce OF 4 PUSHAB CONSSHOW MSG 3; Address of message processing routine 
17°CF 8=—oO9F 8 5 PUSHAB NICE_SHOO_DESC ; Address of descriptor of my READ 


N 6 
NCPCONCAR = Console Carrier Requester Ethernet 1/0 16-SEP-1984 01:58:4 AX/VMS Macro V04-00 P 11 
¥04-008 ACTSURB CONNECT” INIT REMOTE CONSOLE Din ScSEPH1ORG Ooz7 8.59 FACE ee MMe ee ta ar:1 «| Page HH, 
1'CF 8 9E 3 MOVAB CONST_SHOW_NODE,R3 ; Point to storage for node-id 
37 2}. Ef 9E ra 5 MOVAB wice SHOW_ASG,R? 3 Point to be inging of message 
6 gor F 43 46 § MOVAB POBSG_VRB_ENT+1,R6 ; Point to node-id 
§ r 48 MOVZBL (R6)+,R8 ; Was a node address specified? 
12 4 a BNEQ 2$ : if NEQ no - use node name 
36 ASSUME NMASC_ENT_NOD €E0 0 
83 94 5 94 CLRB (R3)+ 3; Set parameter t 
83 66 8 0052 395 OVW (RO), (RB)4 S Store node edéress 
0 1 037 38 BRB 4$ 3; Continue in common code 
83 58 9 7 98 2$ MOVB R8,(R3)+ 3; Store length of name 
63 $6 23 23 Baan 99 MOVC 4 BS (R3) 3; Store noes name 
0517'CF C OSE 400 4$ SUBL R7.R3,NICE_SHOW_DESC : Store length of message 
00000000'GF 02 FB B068 401 CALLS #2,G*°NMLSPROCESS_NICE ; ship the message 
03 O7E1'CF f B98 rh BLBC NICE MSG_FLAG,6$ ; If LBC no error 
020D 1 a $37 BRW 20008 ; Terminate processing 
bo5 $4 ; Do any necessary parameter conversion 
04A6'CF OSOA'CF 9E 007 407 $s: MOVAB XE_DESC,CONSXE_DESCADDR ; Default to XEAO: (UNA-0) 
0000'CF 95 OO7A 408 TSTB PDB$G_CON_SLI 3 Was service circuit specified? 
03 «13 443 rst 10$ : If EQL no 
0080 i) : Convert SLI to XEq0: 
FF7D° 30 tt 418 BSBW CONSGET_SLI ; Do ultimate call to NETACP 
O08 215 
0083 213 : Set up channels for request IDs 
52 O0002'CF 9 $08 418 10S: MOVAB PDBS$G_CON_PHA+2,R2 : Point to physical address, maybe 
FE A2 95 0088 419 TSTB =2(R2) 3; Was a physical address provided? 
28 4 0088 $59 BNEQ $ 3: If NEQ yes - use it alone 
O7E3'CF 95 O008D 421 TSTB ADDR_HARD : Is there a hardware address? 
10 iS 091 4 § BNEQ 15$ 3; If NEQ yes - use it alone 
53 OOB4'CF OD 093 4 MOVL NO_HARD_MSG+4 ,R3 ; Address of message 
52 00B0'CF 0 0098 424 MOVL NO-HARD_MSG,R 3; Length of message 
0331 6 009 4 5 BSBM NCPSTTY WRITE : Output the message Or 
3 Done 
52 o7es' ce 9E boas 4 § 15$ MOVAB ADDR_HARD+2,R2 3; Assume I have a hardware address MO 
56 0688 cf 3 QOA8 428 MOVAB NICHAN_HARD,R6 3; Address of channel to physical address Mol 
2c9 3 OAD 429 BSB SETUP 3 Set up the Ethernet channel MO! 
52 O4FB'CF E p80 430 MOVAB ADDR_PHYS+1,R2 ; Point to physical address MO! 
56 04B8'CF 43 0B 431 20$ MOVAB NICHAN_PHYS,R6 : Address of channel to hardware address Ol 
028c «(3 pea ? ¢ BSBW SETUP_RICHAN 3; Set up the Ethernet channel mt 
dep 4 4 ; Try to get the console connected Hol 
O4AA'CF O05 D0 O0BD 4 § ; MOVL #RETRY_CNT,RETRY_COUNTER ; Set up number of times to retry MO! 
OC 4 pteeee MOI 
Ce 4 8 ; Need initial checking code: moO! 
C2 «439 ; - Request system ID MO! 
C2 440 ; - If no response or console not loaded, done MO! 
Boe 441; - If console owned by some else, too bad Mol 
C 442 ; If console owned by me, bug: release console MO! 
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ECT INIT REMOTE CONSOLE DIA iets Ti 85:39:38 ENGEL SRCINGPCONCAR MAR: 1 . (1) 
7 preeee 
445 3 Transmit RESERVE message, to see if I can get console 
103 19 $: MOVL #1,R6 ; Set to flipflop channels 
$¢8 150$:  MOVW NICHAN_HARDCR6],NICHAN ; Use the proper channel 
44 BEQL 4 ;_If EQL, channel was never assigned 
450 MOVL NI ADDRESSESCR6],DEST_ADDR 3; Store pointer to address 
451 2008: MOVAB RESERVE_MSG,R3 ; Address of message 
126 CLRQ 1(R3) ; Assume no service password (8 bytes) 
45 TSTB POBS$G_CON_SPW ; Did I get a service password? 
454 BEQL 300$ 3; If EQL no 
455 MOVQ PDB$G_CON_SPW+1,1(R3) ; Str ng of 8 bytes 
$28 300$: MOVZBL #RESERVE_MSG_LEN,R2 i Length of message 
teh BSBW NI_OUTPUT :; Send it 
459 ; Transmit REQUEST ID message, to see if console is mine 
461 400$: MOVAB REQUEST_ID_MSG,R3 ; Address of message 
106 MOVZBL #REQUEST MSG_LEN,R2 5 Length of message 
46 SBW NI_OUTPUT : Send it 


464 ; 

23? : Receive the System ID message 

467 ° MOVAB SYSTEM_ID_MSG,R3 ; Address of rcv bfr 
468 MOVL R3,SYSTEM~ID_END : Init pointer to end 
469 MOVZBL #SYSTEM_IB_LTH,R2 ; Lengt of rcv bfr 

470 BSBW NI_INPUT ; Do the receive 

471 BNEQ 450$ : If NEQ 1/0 completion 
tr6 SCANCEL_S NICHAN ; Kill the receive 

473 410$: SOBGEQ R6,1 ; Try other channel 

474 4208: SOBGTR RETRY COUNTER, 100$ : Try both again 

475 425$: MOVL NO_ -MSG+4 ,R3 ; Address of message 
476 MOVL § NO-RESP"MSG,R2 : Length of message 

477 BSBW NCPSTTY-WRITE ; Output the message 
$78 BRW 1500$ ; Done 

480 : Response received 

48¢ 450$: EXTZV #16,#16,R0,RO ; Get Length of message 
? ADDL2 RO, SYSTEM_ID_END ; Point to end of message 
i : See if it is valid 

4 7 : CMPB = SYSTEM_ID_MSG,- ; Is this a system ID? 
488 #MOPSC"SYSTEMID 

489 BEQL 4 ; If EQL yes 

490 SOBGTR $5 18*..COUNTER 4008 :; See if OK to proceed 
$3) BRB 425$ ; Ran out of retries 
195 : See if I have the console 


495 4608: MOVZBL #MOPSC_INFO_FUNC,RO 


; Set to find functions 
£36 BS SCAN SYSTER_ID ; Scan for the field 
49 TSTL R ; Found? 
49 BEQL 410$ 3 eee If Fat no = try again 
49 CMPL R1,#MOPSC_FUNC_SIZE ; Valid size? 


NCPCONCAR - Console Carrier Requester Ethernet 1/0 16-SEP-1984 01:58:4 AX/VMS Macro V04-00 Page 13 
¥O4-000 ACTSVRB_ CONNECT INIT REMOTE CONSOLE DIA ety 3:78:39 ENCE. SRCINEPCONCAR. MAR: 1 . (1) 
ite 158 BNEQ 410$ ; wee NEQ no 
03 62 63 ff 13, ‘ BBC #HOPSV_FUNC_CARR, (R2) , 4708 ; If BC console is not active 
O0A 1 ! f § BRW 600$ : Check reservation 
OGAA'CF D7 18 4 470$: DECL RETRY_COUNTER : Can I keep going? 
Bc 15 183 § ot ee [twee ”’ 
19f : : Request downline load of carrier code to DEUNA. 
167 09 ; NOTE: We must deassign all our channels to the Ethernet driver in order 
167 \9 3; to allow MOM/NDDRIVER to be able to issue reads/writes on the protocol 
167 1] ; type. XEDRIVER only allows NDDRIVER to be used when NETACP “‘owns"’ the 
192 \¢ : protocol-type UCB, so we must ‘‘de-own'’ it for a while. 
187 14° SDASSGN_S CHAN = NICHAN_HARD =; Deassign channel to physical address 
OIF 1? SDASSGN_S CHAN = NICHAN_PHYS ; Deaasign channel to logical address 
5B O5S33'CF 9E HE 317 MOVAB LOAD_PARAMS,R11 ; Set to complete LOAD request msg 
oie Bh ASSUME NMASC_ENT_NOD €0 0 
8B OO00'CF 90 8186 521 MOVB NCPS$GL_OPTION, (R11)+ ; Store load option code 
07 12 bigs : ¢ BNEQ 475$ : If NEQ load VIA circuit 
4 2 ¢ ASSUME NMASC_ENT_ADD €Q 0 
8B 94 0188 526 CLRB (R11)+ ; Address to follow 
8B O4FF'CF B0 0135 527 MOVW CONSW_ADDR_DNA,(R11)+  ; Store the node address 
50 OO00'CF 9 136 528 475$: MOVAB PDB$G_CON_PHA,RO ; Point to address 
80 95 019 529 TSTB (RO)+ ; Was physical address in command? 
06 13 3138 530 BEQL 480$ : If EQL no = don't pass one to NML 
8B oA 8 198 531 MOVW #NMASC_PCNO_PHA,(R11)+ ; Store PHA indicator 
0222 019E 236 BSBW MOVE _IMAGE : Move it to message 
0000" 3 pal a7 480$: i318 PDB$G_CON_SLI 3 Was service circuit specified? 
3 no 
8B OO06€ 8F  B0 OIA? 535 MOVW #NMASC_PCNO_SLI,(R11)* ; Mark service circuit 
50 OOO1'CF 9 1AC 30-536 MOVAB PDB$G_CON S[I+1,R0 3 Point to circuit string 
O20F 30 0181 : 7 BSBW MOVE IMAG 3; Move it to message 
QOOO'CF 9 1B4 8 500$:  TSTB PDB$G_CON_SPW ; Did I get a service password? 
1 1B8 539 BEQL 1 3; If EQL no 
8B OO6F 8F B60 OIBA 540 MOVW #NMASC_PCNO_SPA,(R11)+ ; Put in the service password. 
8B 90 O1BF 41 MOVB #8 + : Set length of service password. 
8B OOOI1'CF 7D Bite 4g MOVva PDB$G_CON SPW+1,(R11)+ ; Store the service password. 
3 43 8F BO 1¢ 43 510$:  MOVW #NMAST PCRG_LOA, (RI1)¢ 3; Mark load file 
103°CF 3 1CC 44 MOVAB LOA_FICE,R ; Point to string 
glee 3 101 45 BSBW MOV 3; Move it 
8B 4 F 0 01D4 $ MOVW #NMASC_PCNO_SLO,(R11)+ ; Mark secondary loader file 
50 108° CF F 109 4 MOVAB SLO _FICE,RO ; Point to string 
1£2 1DE 48 BSBW MOVE_IMAGE ; Move it 
50 033 *CF —E O1E1 4 OVAB NICE LOAD_MSG,RO ; Point to beginning of message 
aogier 9F O1E6 50 PUSHAB CONSCOAD_ASG ; Address of processing routine 
g2e "CE OF OTEA 51 PUSHAB NICE_LOAD_DESC ; Address of message descriptor 
00 BE B 8 C3 ie 26 SUBL3 =RO,RT1,a(SP ; Store message length 
00000000 ° GF fe 1F 5 CALLS #2,G*°NMLSPROCESS NICE 
0014°DF 9 4. 22 CMPB aL OAD RESP_DESC+%,~ 3; Did the load succeed? 
3) 12 OFF 56 BNEQ 900$ ~ ~ :; If NEQ no 


veces 


= Console Carrier Requester E 
ACTSVRB_CONNECT INIT REMOTE 
FE7F = 331 ] 34 BRW 
d $3 
4 561 6008: 
03 62 07 go 4 86 BBS 
FFI3 1 ; o7 610$: BRW 
a 
50 08 2A 0B 89 700$:  MmOVZB 
a a ic 
3 1 13 0 BEQL 
oven Oe i ah 
53 OOD8'CF 00 8 1D 258 MOVL 
52 O0D4'CF 0 3 574 MOVL 
ge Be eR 
D a7 

3 D 278 3; Now get to 

85 4 44 : Also, post 
53 OO4F'CF DO 0220 381 800$:  MOVL 
oom Be i RE 

0 3 584 ; 

023A 585 ; Set up for 

0 3 586 ; 

ee 0 te 

ogee 589 

0244 209 

0244 91 
53 OO88'CF DO 0244 235 MOVL 
52 0084'CF D0 0249 59 MOVL 

me Hee 

025 596 ; 

He ad : Output erro 
7E 0010°CF 7D $2 599 900s: mova 
O0OO'CF O02 FB HS $29 ; CALLS 

20 606 ; Clean up 
2 604 10008: 
3p $06 ; Transmit re 
53 OO4A'CE 6 9E : 608 ° MOVAB 
1 GA 63 609 MOVZB 
0048 30 ° o19 BSBW 
és $16 > Deassign ou 
6 615 ; 


thernet 1/0 1¢° tS 91 03:38:48 Yates Macro V04-00 Page 


S$ 
CONSOLE D S NCP.SRCINCPCONCAR.MAR; 1 
10$ ; Try to reserve console again 


: See if console is reserved 


#MOPSV_FUNC_RSRV,(R2),700$_; If BS console is reserved 
420$ ; Try reservation again 


Console code is active and console is reserved - see if I have it 


L #MOPSC_INFO_USER,RO ; Get user 
AN_SYSTEM_ID 3 Look at message 

3; Field present? 
610$ : If EQL no = try again 
#6 ,MY_ADDRESS, (R2) ; Do I have it? 
806$ : If EQL yes 
IN_USE_MSG+4 ,R3 ; Address of message 
IN-USE-MSG,Re ; Length of message 
NCPSTTY_WRITE ; Output the message 
1500$ : Finish in common code 


the terminal and start progeses characters. 
a read on the NI channel, for responses 


CONNECTED_MSG+4 ,R3 ; Address of message 
CONNECTED"MSG,R2 ; Length of message 
NCPSTTY_WRITE ; Output the message 

terminal loop 


TTY_READ ; Start a timed read 


R_S 3 Twiddl 
: If we get here, user typed ‘'terminate’’ character 


FINISH a R3 


FINISH"MSG,R2 
NCPSTTY_WRITE 
1000$ 


; Address of message 
; Length of message 

; Output the message 

; Finish in common code 


r message from load 


LOAD_RESP_DESC,-(SP) ; Set up arguments . 
#2, NCPSCONERR Call the error routine 


lease message 
RELEASE_MSG,R3 ; Address of message 
L #RELEASE_MSG_LEN,R2 3 Length of message 
NI_OUTPUT ; Send it 


tstanding channels 


a 


wef 


re BR5" 


veataneatedh 
0 


ACTSURBLEONNECT™ INIT REMOTES EBAcBEE B(9 “CSEBCTREE Bbit8:39 ENGEYSRCHNEPCONCARCRaR;1 | P28 UF, 


re OSs 
04 9 


0 
; 


r 
EC 

1% 1500$: DASSEN§ NICHAN_PHYS : Physical address channel 

DASSGN_ NI CHAN, HARD : Hardware address channel 

1§ 2000$: S$DASSGN7S ; Terminal channel 

1 CALLS “#0 G*NMLSTERMINATE : Close off NML SHR interface 
18 HOVL S*#SS$_NORMAL ,RO : Status for mainline 

; Done 


ae 


F 
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04s 000 ACTSVRB_ CONNECT INIT REMOTE CONSOLE DIA eet 9 83:78:58 ENCPV SRCINEPCONCAR MAR; 1 ° (1) 
pee 
3 ; NI_INPUT = Tels routine receives a message over the Ethernet 
4 : ; NILOUTPUT = This routine transmits a message over the Ethernet 
97 : : Inputs: 
97 627; RS - address of message 
af e $ ; R2 = Length of message 
97 630 : Outputs: 
97 6631; RO - first longword of [0SB 
44 ? § ; PSL reflects value of R 
97 634 : Side effects - image exits if error 
97 635; 
37 eae 
97 6 g NI_INPUT: 
0297 6 SSETIMR_S EFN=#2,- ; Start timer on input 
8 97 640 DAYTIM=TIMEOUT 
50 00° 3C A6 641 MOVZWL S*#I0$_READVBLK,RO 3; Get function code 
51 O7EB'CF 9E O2A9 o6§ MOVAB MY_ADDRESS,R1 ; PS, to get my address 
17.11 i 64 B NI~10_ COMMON > Go to common code 
BO 644 NI_OUTPUT: 
B 645 SCLREF_S Re ; Make sure timeout flag isn't set 
50 ' 3¢ 0289 966 MOVZWL S*#10$_WRITEVBLK,RO ; Get function code 
51 O4F4'CF 00 8 af 74 a te comet EST_ABDR,R1 ; PS, to show destination address 
0 C1 649 ~ ~ $Q10_S FUNC=RO,CHAN=NICHAN, EFN=A1- 
C1 650 Pi=(R3),- 
O5¢] 882 PScni ce 
02C1 836 10SB={0SB 
8 E2 654 ONERROR RET 
E6 655 SWFLOR_S #1,4°B110 ; Wait for flags 1 or 2 
8 Fl 636 SCANTIA_S 3; Cancel the timer 
50 0008'CF 00 FA 65 MOVL 10SB8,R0 ; Get 1/0 status return 
06 ~=«1 FF 658 BEQL 100$ ; If EQL 1/0 not complete 
01 659 ONERROR RET 
05 05 660 100$: RSB ; Done 
3 661 
fee i 
$68 ; SCAN_SYSTEM_ID = Scan SYSTEM ID msg for a certain info type 
6 666 ; Message format: 
3 668 : Message code - 1 byte 
8 66 3 Reserved byte - 1 byte 
6 9 : Receipt number - § bytes 
of : Info fields - bytes of type, 1 byte of length, n bytes of data 
6 e78 : Inputs: 
gre : RO - INFO type field to be matched 
6 676 : Outputs: 
ge Fey os tes $teus wnt toot 
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PR a 
R2 - 


CAN_SYSTEM 
MOVAB 


So 
on 
o 
=z 
v 
- 


Length of info field 
address of info field 


aA 2a KK ww 
DODO DOOvW~< 
MEF MPNO 


$350 pais Macro V04-00 Page 


NCP.SRCINCPCONCAR MAR; 1 


Point to start of INFO 
At end of message? 
If LSSU no 


Take common exit 
INFO type match? 
If EQL ye 


s 
; Get Length of this field 
; Point to next field 


Loop 
; Get Length of this field 
Done 
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¥O0-008 ECT INIT REMOTE CONSOLE DIA iets 1 83:39:39 ENCP. SRCING ONCAR.MAR; 1 ' ( 
3 +4 
8 ; CONSSHOW_MSG = process nice message needed! from NMLS 
9 ; This rouk ine extracts the parpneters needed or the CONNECT CONSOLE operation 
9; ; from p Mace message returned by NMLSHR. is routine assumes that there 
: will b messages: more data, data. a. The ‘‘data’’ msg is of interest. 
f § : CALLS #1,CONSSHOW_MSG 
705 ; Input: 
) ? : 4(AP) = Address of descriptor of message 
1 
OFFC 711 CONSSHOW_MSG: -WORD “M<R2,R3,R4,R5, R6, R7,R8,R9,R10,R11> 
51 04 of 7D ay Aova @4 (AP) ,R1 ; Get message descriptor 
02 g 91 71 CMPB (R2) ,#NMASC _STS_MOR : Do I pent to see this? 
>) oe 714 BEQL 100$ : If EQL 
80 8F $s 91 715 CMPB (R2) ,#NMASC_STS_DON i: Do I want to see this? 
13 rig BEQL 100$ i If EQi n 
01 62 91 71 CMPB (R2) ,#NMASC_STS_SUC ; Do I want to see this? 
os. iD 718 BEQL 5$ ; If EQL yes 
7E1°CR 8696 719 INCB NICE_MSG_FLAG ; Set error vies 
51 7D 720 mMOVa R1,- ; Set up for call to error processor 
O0OO'CF O02 FB 721 CALLS es NCPSCONERR ; Output error 
) eb | , g BRB 1068 ; Return 
0 4 : : Initialize to scan for missing parameters 
SA O060'CF 9 0348 7 6 5s: MOVAB NICE_PARAM_ID,R10 ; Point to data IDs 
59 OO30°CF 9E 2 4 MOVAB NICE_PARAM_ “ADBR, RO : Point to data storage addresses 
: 4 : : Loop to get parameters not specified in command 
50 A x 5 731 10s: MOVZWL (R10)+,R0 ; Get param type code 
58 89 SCD | : MOVL  (R9)+,R11 ; Get PDB address 
> a 58. 7 BEQL 100$ ; If EQL don 
P43 O88 O38 gneo 108 ath re passed? 
5B 2D «(0361 «7 6 PUSHL R11 : haregs of storage area to stack 
5 DD o3 7 PUSHL R ; Param type code to stack 
0000' CF ? F 6 7 8 CALLS #2,CONSPARSE_NICE ; Parse field, if it’s there 
78 6A 7 MOVB RO,-(R11) : Return value becomes exlatence flag 
& 11 6p 740 BRB 10$ ; Loop 
04 6F 742 100$: RET ; Done 


¥04-000 ACTSURBLCONNECT® INIT REROTE € bechet WS A SrSER=SR O3:78:59 UNCEYSRcTINePConcaRcman:1 «= "29° U2, 
as i 
$$ : CONSLOAD_MSG = process response to load message returned from NMLSHR 
f } CALLS #1,CONSLOAD_MSG 
f , : Input 
f 4 4(AP) = Address of descriptor of message 
Ro fi 
: OF FC 7 : § CONSLOAD_MSG: -WORD “M<R2,R3,R4,R5, R6, R7,R8B,RI,R1I0,R11> 
OO10'CF 04 8C 7D 0372 7 MOV  @4(AP),LOAD_RESP_DESC ° ; Get message descriptor 
04 7 758 100$: RET ; Done 


a 


: 8 AX/VMS Macro V04-00 Page 20 
: NCP.SRCINCPCONCAR.MAR; 1 (1) 


voes000 AC 


Zo 
oO 
Ld 
s 
os 
zDD 
—o 
—o 
om 
moa 
2s 
e 
a7 
wm 
Mm 
oc 
oz 
ze 
“nn 
ea 
mee 
oe 
mS 
ro 
— 
Wo 
| 
nn 
me 
vv 
ee 
— 
woo 
@o 
oe 
oo 
Nm 
= 
woo 
Las? a 


30009 0909 09 00 09 09 090909 SII NII NINO OOOO OOSOASA OF 


<$ 


+ 
+ 


SETUP_NICHAN = Set up channel to Ethernet 
INPUTS: 


Re - Address of Ethernet address for destination on this channel 
R6 = Address of channel no. 


OUTPUTS: 
Channel number stored indirectly via R6 


SETUP _NICHAN: 
MOVC3 #6,(R2),DEST_ADDR ; Stuff the address 


; Get a channel to Ethernet 


SASSIGN_S DEVNAM = @CONSXE_DESCADDR, CHAN = (R6) 
ONERROR RET 3 If error done 


; Set function to establish the protocol type and start device. 
The initial startup will take about 6 seconds for the DEUNA 
to run the self-test sequence. 
$Q10W_S FUNC = #<10$_SETMODE! IOSM_CTRL! IOSM_STARTUP>,- 
CHAN = (R6),= 


10SB = 10SB,- 
P2 = #SETPARAM_DESC 


O4F4°CF 62 06 28 


AO OD NAN WN  O ODNOA NEW" O OD NOUS WO tt 
. 


COOOOD0OOCOONYNNYY 
any 


Ww 

AAA ANA ANN NAINA AANA ANNI wo 
SVQVwwsl TT st 

NOOOOOWOOOOOOOOOOOOND -e 

SNS II 


SOOQGCOCOCOOCCOCOCOCOOCOCOOOOOOOOOCOOOOOCOOCOO 


ONERROR RET 3; If error done 
50 0008'CF 00 9 79 MOVL 10SB, RO ; Else, get I/0 status return 
3 79 ONERROR RET ; If error done 
05 C 794 RSB ; Done 


wees 


we 


RO - address of source string 
R11 = address of destination Zering 


OUTPUTS: 


RO=RS - clobbered 
R11 - updated to point at next storage byte 


MOVE _IMAGE : 
MOVZBL 
MOVB 


; MOVE_IMAGE = move image string 
+ INPUTS: 
; Get aoe th 
& 
z 
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; Update poin 
; Done 
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+ 
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NCPSTTY_WRITE = This routine writes a message on the terminal 
INPUTS: 


R2 - Length of ms 
j address of aso 


CPSTTY_WRITE:: 
“$Q10W_S TTYCH ; Get input from terminal 
nel08. MURITEVBLK>,< 


(R3),- 
R2 


3; Done 


+ 
+ 


TTY_READ = Routine to do timed read from terminal. Also, input 

terminates on BREAK_CHAR (and ‘‘break'’ indication is sent across channel) or 
DONE_CHAR, which results in termination of operation. 1/0 completes in an 
AST, where input is processed and another 1/0 is queued. 


TTY_READ: 
50 OO00'CF 9E . MOVAB tpg pese RO s Get pséress of character mask info 
$Q10_S CHA TTY rout from terminal 
FUNC > #<108 TH rpgnoau.s ih at D!10$M_NOECHO>,- 
I10SB = 
teers TTy_AST 
P1 = TTY INBOF 
P = PTY URBUE = 
P = #1,- 3 1 second timer 
P4 = RO 3; Descriptor of terminator set 
ONERROR RET 
05 RSB 3; Done 
$+ 


TTY_AST = Process terminal input ASTs 

This routine is called when a timeout on the TTY read occurs or when 
ne of the terminators is encountered. If a eiseeus g°SEurn w characters 
n the buffer are sent in a COMMAND/POLL message. break’ kere nator 
is encaunteced, ony characters in the terminal “batter are sent, and the 
“break"’ indicator is set in the message. If t done’ terminator is 


PRIPIPIPIPIPIPIPIPIPIPINIRIIIII FF FFF SH OOCOCOCOCUCOUCCCOCUCUCCUCUCVCYSO 
MMMMMMMMMMMMNOS COMA AAAAANDNNNNNNNNN NNO) 2 2 oe 


The NI input buffer is also checked cenplet? on at this point; if there 


encountered, the process is restarted. so thet” control will return to mainline. 
or 
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ACTSVRB_CONNECT INIT REMOTE CONSOLE DIA 5-SEP-1984 :13:2 NCP.SRCINCPCONCAR.MAR; 1 (1 
42E 6 ; is a message, the text is printed on the terminal and another NI read is 
42E 77 ; queued. 
42E 4 ; 
75 BRO * 
OFFC 04 1 TTY_AST: sWORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> 
O2AS'CF 02 BA 04 é BICB #MOPSM_BREAK,MOP_CTRL_FLAGS ; Assume no break 
20 OO00'CF £9 04 BLBC =‘ TTY_IN@10SB,{0 ; If'LBC assume timeout occurred 
04 vent 81 43A 4 CMP TTY_IN_IOSB+4,#DONE_CHAR ; Was that the 1/0 terminator? 
D 12 0O435F 5 BNEQ 50$ ; If NEQ no 
441 § 10$ SWAKE_S ; We are all done 
7111 ret BRB 200$ 3; Finish in common code 
02 O004°CF 8B! 44 § 50$ CMPW TTY_IN_IOSB+4,#BREAK_CHAR ; Was that the 1/0 terminator? 
05 12 045 aH BNEQ 1008 ; If NEQ no 
O2A5'CF 02 88 tH 6 BISB #MOPSM_BREAK,MOP_CTRL_FLAGS ; Set break indicator 
; Set up to transmit to remote console 
th B34 | s ! 
O2A5'CF 01 8A OQ45A 96 100$: B1CB2 #MOPSM_MSGNUM,MOP_CTRL_FLAGS ; Clear msg number 
O7E2°CF  O7E2°CR 92 045F 897 MCOMB MOP_MSG_NUM,MOP_MSG_NUM ; Get next number-1 
50 O7E2'CF 1 81 0466 898 ADDBS = #1,MOP_ASG_NUM,RO ; Get_bit to put in message 
13 046C 899 BEQL $ : If EQL number is right 
nee 96 rt 900 INCB MOP_CTRL_FLAGS 3; Make the number right 
53 O2A4'CF 3 04 901 110$: MOVAB NI_XMTBUF,R3 : Get address of output buffer 
52 0002'CF C 047 if) MOVZWL TTY_IN 10SB+2,R2 3; Get number of characters in 
52 2 g8 047C 890 ADDL2 M#COMMAND OHD,R2 ; Account for rest of message 
F 0 O47F 904 BSBW NI_OUTPUT ; Ship the message 
53 OOAO'CF 9E bees 905 MOVAB NI_RCVBUF ,R3 ; Address of rcv bfr 
52 0200 8F Hs 04 906 MOVZ2WL #RCVBUFLEN,R2 3 Length of rcv bfr 
FEO8 0 048C 907 BSBW :; Do the receive 
OF is 48F 908 BNEQ : If NEQ 1/0 completion 
53 O092'°CF OD 491 909 MOVL NO_RESP_MSG+4_,R3 ; Address of message 
52 OO8E'CF 8 496 910 MOVL NO_RESP_MSG Re 3; Length of message 
FF33 0 0498 911 BSBW NCPSTTY-WRITE 3; Output the message 
Al 11 ons ai¢ BRB 10$ ; Done 
zn aie 3; Terminal output from console 
53 9gA0' cr 9E éA9 318 120$: MOVAB NI_RCVBUF,R3 3; Point to message 
13. 83 «691 «(04A5)— 91 CMPB. = (R3)+,#MOPSC_RESPONSE =; Is this a response message 
ig 1 4A8 91 BNEQ 1 3; If NEQ no - ignore 
28 f 9 4AA 4. MOVB (R35)+,RO 3; Get the control flags 
C1 1 4AD BBS #MOPSV_CMDLOST,RO,110$ ; If BS need to rexmt 
52 QROA" EE C 0481 921 MOVZWL 10SB+2,R2 3; Get no. of chars in message 
2 9 48 g ¢ SUBL2 # 3; Adjust for MOP overhead 
FFI 489 9 SBW = sNCPSTTY_WRITE ; Output to the terminal 
FF38 4BC 924 1908: BSBW TTY_READ ; Start the next input 
4 re 3 5 200$: ET ; Done 
4C S ; END 


NCPCONCAR 
Symbol table 


$$T1 
ACTSVRB_ CONNECT 
ADDR _HA 


CON 

CONSNFB pest 
CONSP2BUF _DESC 
CONSP4BUF 


CONSP4BUF _DESC 
CONSPARSE NICE 
ON ASG 


Ho a 


MOPSC~RE 
MOPSC~SYSTEMID 
MOPSM~ BREAK 


MOPSA~ 
MOP$V~CMOLOST 
MOPSV"FUNC_CARR 
MOPSV"FUNC~RSRV 
MOP_CTRL_FLAGS 


00000004 


RReeeeke 
Rkeeekke 
RRARRRREE 
Reerenree 
geeeeene 
Reeeeeke 
Seeeeeee 
geeeeeee 


ooo 


>< OK OC OK OK OK OK OK 


COooooQoooooco°oo 
NWS SVP & HS 
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ooo OCOoOCOoOoOoCOoOoOOoOOoOO 
NRW WELLL SN 


NMASC_ENT_NOD 
NMASC~FNC~LOA 
NMASC-FNC_REA 
MASC-FNC SYS 
NMASC-LINAC_SET 
NMASC"OPINF ~CHA 
NMASC-PCLI_ACC 
NMASC~PCLI~BFN 
NMASC~PCLI~BUS 
NMASC~PCLI~CRC 
NMASC-PCLI-DCH 
NMASC~PCLI DES 
NMASC~PCLI~PAD 
NMASC~PCLI PRM 
NMASC-PCLI-PTY 
NMASC~PCNO-HWA 
NMASC~PCNO”LOA 
NMASC~PCNO-PHA 
NMASC~PCNO-SLI 
NMASC~PCNO- SLO 
NMASC-PCNO-SPA 
NMASC-STATE_OFF 
NMASC~STATE ON 
NMASC-STS_DON 
NMASC-STS_MOR 
NMASC~STS_SUC 
NMASC~SYS-VMS 
NMLSIRITIALIZE 
NMLSPROCESS_NICE 


Ss 
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Symbol table ~SEP-1984 NCP. SRCINCPCONCAR.MAR; 1 (1) 
NMLSTERMINATE aeereeee x 4 
NO_HARD_MSG OR é 
RESP_MSG R 
P2Bur $1 = 
0020 
PDB 


v 
@ 
SS 
y 
oe 
" 


_CON_PHA Rkeeeeee x 4 
PDB$G_CON_SLI eeereeee = §=6X § 
PDBSG_CON_ SPW eeeneeee § YX 
PDBSG_VRB_ENT eeeneeee =X 4 

CVBUFLEN = 00000200 
RELEASE _MSG QOO004A R 02 
RELEASE_MSG LEN = B88 01 
REQUEST_1D_MSG 46 R 02 
REQUEST—MSG_LEN = 00000004 
RESERVE _MSG 444 1 R 03 
~ $e “MSG_LEN = 00000009 
RETRY_CRT = 00000005 
RETRY “COUNTER QOO004AA R 03 
aa SySTen. 1D 00000306 R 04 
SETP 44 4 R 03 
SET panease = 0000003C 
SETPARAM_DESC sh eS 4 R 02 
SETUP_NICHAN 00000379 R 04 
SLO_FILE 00000108 R 02 
O_LTH = 00000008 
SS$ NORMA rkekkkee x 04 
SY SSASSIGN eeaeneene GX 04 
SYSSCANCEL eereeeee GX 04 
SYSSCANTIM eeneneee GX 04 
SYSSCLREF eenereee GX 04 
SYSSDASSGN aeeneeee GX 04 
SYSSHIBER eeeeeeee GX 04 
SYS$Q10 eearenee GX 04 
SYS$Q10W eeeneeee GX 04 
SYSSSETIMR eeeeeenee GX 04 
SYSSWAK ie eereeeee 6X 04 
SYSSWFL keeeeeee GX 04 
SYSTEM” it END Q000009C R 03 
SYSTEM_ID_LTH = St 4 
svetente MSG 00000018 R 03 
SYSTEM_ INFO = Q0000001C R 03 
TERMINATOR DESC sit 00 R 8s 
TIMEOU 0 ‘ R 0 
TIRER = 0 
TTYCHAN rts R 3 
TTY_AST 0042E R 4 
TTY“DESC OOOED R : 
TTY— INBUF = A6 R 
TTY-IN_IOSB 09 B 3 
TTY_READ F7 R 4 
€_Besc AR 03 
XMTBUF LEN = 0 
ZERO_LTH = , C 
JERO-START 6F R 03 
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Psect synopsis ’ eet 83:78:38 ENCE. SRCINEPCONCAR MAR: 1 _— , 


teres enr ec eereeceas 4+ 


! Psect synopsis B 


_bonnaeawn ome oe oo 


PSECT name Allocation PSECT No. Attributes 


0200000 ( -) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
0 p8008 ( “a 1¢ 1.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
CONCARSPURE 000011 ( 75.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOURT NOVEC BYTE 
CONCARS IMPURE 444 $e ( 2041.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
CONCARSCODE 00004C0 (¢ 1216.) 04 ¢ 4.) NOPIC USR CON’ REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
tec ceetaswmeeeceseceecaseeea= + 
H Performance indicators ! 
eS SS ee ee eee mamma ao + 
Phase Page faults CPU Time Elapsed Time 
Initialization 3s 00:00:00.09 00:00:00.93 
peunens processing 132 00:00:00.84 00:006:07.60 
426 Sb AS es ISD 
Synbol table sort 9 0: iets 00:00:05. 
Pass 2 17 00:00:03.19 00:00:08.9 
Symbol table output 21 00:00:00.18 00:00:00.5 
Psect synopsis output 3 00:00:00.03 00:00:00.16 
Cross-reference output 0 00:00:00.00 es Be S$ 
Assembler run totals 789 00:00:21.25 00:01:13.81 


The working set_Limit was 1800 pages. 

85239 bytes (163 pages) of virtun memory were used to buffer the intermediate c 

There were 90 pages of symbol table space allocated to hold 1503 non-local and §3° leeed symbols. 
927 source Lines were read in Pass 1, producing 23 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 


Macro Library name Macros defined 


-§ SSSDUA g: eg pot MLB; 1 
$255SDUA28 8: SHRLIBJ NMAL IBRY. MLB; 1 


Bitten SYSLIBISTARLET-ALB:2 1 
TOTALS (all Libraries) 2 


1560 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NCPCONCAR/OBJ=0BJ$:NCPCONCAR MSRC$:NCPCONCAR/UPDATE=(ENHS:NCPCONCAR) +EXECML$/LIB+SHRLIBS$:NMALIBRY/LIB*+SHRLIBS:NET/LIB 
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